(compilation-forget-errors): Don't adjust compilation-parsing-end if it's nil.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 1bf72c0b62eb2d8a2de3f7a370ab63149459e54a..6987293ea0ffd420b703e3894770fab77301013e 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1850,7 +1850,8 @@ Pop up the buffer containing MARKER and scroll to MARKER if we ask the user."
     (setq compilation-old-error-list (cdr compilation-old-error-list)))
   (setq compilation-error-list nil
        compilation-directory-stack (list default-directory))
-  (set-marker compilation-parsing-end 1)
+  (if compilation-parsing-end
+      (set-marker compilation-parsing-end 1))
   ;; Remove the highlighting added by compile-reinitialize-errors:
   (let ((inhibit-read-only t)
        (buffer-undo-list t)